home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / micro melodies (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  77 lines
  1. 10 poke53281,0:poke53280,0:print"[147][158]":gosub300
  2. 15 ifpeek(828)+peek(829)+peek(830)=158then 17
  3. 16 load"bload 828.o",8,1
  4. 17 ifpeek(52224)+peek(52225)+peek(52226)<>355thensys828,52224,"q&d duet3play.o"
  5. 18 :
  6. 19 sys828,51456,"unpacker"
  7. 20 sys828,49152,"split-screen.o"
  8. 21 sys828,8192,"micro.shp"
  9. 22 dimvt$(24):poke650,255
  10. 23 poke249,64:poke250,96:poke251,0:poke252,32:poke253,0:poke254,0
  11. 24 sys51456:poke317,193:sys49152
  12. 29 :
  13. 30 z$="":vt$(0)=z$:fort=1to24:z$=vt$(t-1):vt$(t)=z$+"":next
  14. 90 print"[147]"vt$(9)tab(7)"[156]loading your selection..."
  15. 100 print"[154]"vt$(19)"        micro melodies selections":goto600
  16. 300 print"tuning the instruments...":readc
  17. 400 ford=1toc
  18. 500 readk$(d),s(d):next:return
  19. 600 for d=1to4
  20. 700 print "[158]"d;k$(d);tab(21)"[153]"d+4;k$(d+4)
  21. 800 next: print"[155]            press q[146] to quit        ":c$=mid$(str$(c),2)
  22. 900 forpb=55974to56010:pokepb,0:next
  23. 910 ifp8thenreturn
  24. 1000 poke198,0:wait198,1:gett$:ift$>"0"andt$<c$thengosub63000:goto100
  25. 1003 ift$="8"then gosub6000:goto100
  26. 1004 rem  ift$="h"then1100
  27. 1005 ift$<>"q"then1000
  28. 1007 poke317,1:print"[147]         returning to loadstar"
  29. 1010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  30. 1020 ifer<>63thensys64738
  31. 1030 sys828,32768,"magic iii":sys64738
  32. 1100 print"[147][153]"vt$(19)"pressing space as song plays stops it"
  33. 1110 print"f1[146] makes song play slower"
  34. 1120 print"f7[146] makes song play faster"
  35. 1130 print"press any key to return to songs"
  36. 1140 gett$:ift$="" then1140
  37. 1150 goto90
  38. 1998 rem *** reverser ***
  39. 2000 print"[154]"vt$(19)"        micro melodies selection"
  40. 2010 for d=1to4
  41. 2020 print "[158]"d;k$(d):gosub5000
  42. 2021 ifd=tthenreturn
  43. 2022 print"[145]"d;k$(d):next
  44. 2024 for d=5to8
  45. 2025 print vt$(15+d)tab(21)"[153]"d;k$(d):gosub5000
  46. 2026 ifd=tthenreturn
  47. 2027 print tab(21)"[145]"d;k$(d)
  48. 2030 next
  49. 5000 forz=1 to 100:next:return
  50. 6000 forx=1to7:t$=str$(x):t$=mid$(t$,2):k$="":gosub63000:ifk$<>""thenp8=0:return
  51. 6010 nextx:p8=-1:gosub100:p8=0:goto6000
  52. 50000 data8
  53. 60000 databeer barrel polka,30
  54. 60010 datashortnin' bread,30
  55. 60020 datamusicbox dancer,30
  56. 60030 datapachelbel canon,35
  57. 60040 datapass' e mezo,30
  58. 60060 datarondo,30
  59. 60062 datarecuerdos,30
  60. 60070 dataall 7 tunes,10
  61. 63000 t=val(t$):gosub2000:v$="v."+k$(t):d$="d."+k$(t):r=t
  62. 63002 poke317,5
  63. 63005 sys828,52227,v$
  64. 63006 sys828,8192,d$
  65. 63008 poke317,193
  66. 63010 printvt$(24)"        press space[146] to stop song    ":poke198,0
  67. 63019 ss=s(r):poke253,0:poke254,32
  68. 63020 poke255,ss:sys52224:if(peek(198)>0)and(peek(197)<>3andpeek(197)<>4)thent=8
  69. 63021 getk$:goto63034
  70. 63022 ifk$="[133]"thenss=ss+1:goto63030
  71. 63023 ss=ss-1
  72. 63030 ifss<8thenss=8
  73. 63032 ifss>200thenss=200
  74. 63033 poke198,0:k$="":goto63020
  75. 63034 poke198,0
  76. 63040 return
  77.